home *** CD-ROM | disk | FTP | other *** search
Unknown | 1999-06-16 | 2.4 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 00 00 00 1e 00 01 | 00 01 00 00 00 01 00 00 |........|........|
|00000010| 00 00 00 00 07 62 43 61 | 6e 63 65 6c 06 43 61 6e |.....bCa|ncel.Can|
|00000020| 63 65 6c 06 43 61 6e 63 | 65 6c 00 02 00 02 00 00 |cel.Canc|el......|
|00000030| 00 01 00 00 00 00 00 00 | 09 62 56 61 6c 69 64 61 |........|.bValida|
|00000040| 74 65 02 4f 4b 06 41 63 | 63 65 70 74 00 03 00 03 |te.OK.Ac|cept....|
|00000050| 00 00 00 01 00 00 00 00 | 00 00 05 62 4e 65 78 74 |........|...bNext|
|00000060| 0b 4e 65 78 74 20 52 65 | 63 6f 72 64 0b 4e 65 78 |.Next Re|cord.Nex|
|00000070| 74 20 52 65 63 6f 72 64 | 00 04 00 04 00 00 00 01 |t Record|........|
|00000080| 00 00 00 00 00 00 09 62 | 50 72 65 76 69 6f 75 73 |.......b|Previous|
|00000090| 0f 50 72 65 76 69 6f 75 | 73 20 52 65 63 6f 72 64 |.Previou|s Record|
|000000a0| 0f 50 72 65 76 69 6f 75 | 73 20 52 65 63 6f 72 64 |.Previou|s Record|
|000000b0| 00 05 00 05 00 00 00 01 | 00 00 00 00 00 00 06 62 |........|.......b|
|000000c0| 46 69 72 73 74 0c 46 69 | 72 73 74 20 52 65 63 6f |First.Fi|rst Reco|
|000000d0| 72 64 0c 46 69 72 73 74 | 20 72 65 63 6f 72 64 00 |rd.First| record.|
|000000e0| 06 00 06 00 00 00 01 00 | 00 00 00 00 00 05 62 4c |........|......bL|
|000000f0| 61 73 74 0b 4c 61 73 74 | 20 52 65 63 6f 72 64 0b |ast.Last| Record.|
|00000100| 4c 61 73 74 20 52 65 63 | 6f 72 64 00 07 00 07 00 |Last Rec|ord.....|
|00000110| 00 00 01 00 00 00 00 00 | 00 07 62 44 65 6c 65 74 |........|..bDelet|
|00000120| 65 0d 44 65 6c 65 74 65 | 20 52 65 63 6f 72 64 0d |e.Delete| Record.|
|00000130| 44 65 6c 65 74 65 20 52 | 65 63 6f 72 64 00 08 00 |Delete R|ecord...|
|00000140| 08 00 00 00 01 00 00 00 | 00 00 00 09 62 4e 65 78 |........|....bNex|
|00000150| 74 50 61 67 65 09 4e 65 | 78 74 20 50 61 67 65 09 |tPage.Ne|xt Page.|
|00000160| 4e 65 78 74 20 50 61 67 | 65 00 09 00 09 00 00 00 |Next Pag|e.......|
|00000170| 01 00 00 00 00 00 00 0d | 62 50 72 65 76 69 6f 75 |........|bPreviou|
|00000180| 73 50 61 67 65 0d 50 72 | 65 76 69 6f 75 73 20 50 |sPage.Pr|evious P|
|00000190| 61 67 65 0d 50 72 65 76 | 69 6f 75 73 20 50 61 67 |age.Prev|ious Pag|
|000001a0| 65 00 0a 00 0a 00 00 00 | 01 00 00 00 00 00 00 0a |e.......|........|
|000001b0| 62 46 69 72 73 74 50 61 | 67 65 0a 46 69 72 73 74 |bFirstPa|ge.First|
|000001c0| 20 50 61 67 65 0a 46 69 | 72 73 74 20 50 61 67 65 | Page.Fi|rst Page|
|000001d0| 00 0b 00 0b 00 00 00 01 | 00 00 00 00 00 00 09 62 |........|.......b|
|000001e0| 4c 61 73 74 50 61 67 65 | 09 4c 61 73 74 20 50 61 |LastPage|.Last Pa|
|000001f0| 67 65 09 4c 61 73 74 20 | 50 61 67 65 00 0c 00 0c |ge.Last |Page....|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 08 62 4f 70 65 6e |........|...bOpen|
|00000210| 53 75 62 0e 45 64 69 74 | 20 53 75 62 72 65 63 6f |Sub.Edit| Subreco|
|00000220| 72 64 0e 45 64 69 74 20 | 53 75 62 72 65 63 6f 72 |rd.Edit |Subrecor|
|00000230| 64 00 0d 00 0d 00 00 00 | 00 00 00 00 00 00 00 0a |d.......|........|
|00000240| 62 44 65 6c 65 74 65 53 | 75 62 10 44 65 6c 65 74 |bDeleteS|ub.Delet|
|00000250| 65 20 53 75 62 72 65 63 | 6f 72 64 0d 44 65 6c 65 |e Subrec|ord.Dele|
|00000260| 74 65 20 53 75 62 72 65 | 63 00 0e 00 0e 00 00 00 |te Subre|c.......|
|00000270| 00 00 00 00 00 00 00 07 | 62 41 64 64 53 75 62 0d |........|bAddSub.|
|00000280| 41 64 64 20 53 75 62 72 | 65 63 6f 72 64 0d 41 64 |Add Subr|ecord.Ad|
|00000290| 64 20 53 75 62 72 65 63 | 6f 72 64 00 64 00 01 00 |d Subrec|ord.d...|
|000002a0| 00 00 02 00 00 00 00 00 | 00 05 62 44 6f 6e 65 04 |........|..bDone.|
|000002b0| 44 6f 6e 65 04 44 6f 6e | 65 00 65 00 00 03 53 00 |Done.Don|e.e...S.|
|000002c0| 02 00 00 00 00 00 1b 51 | 55 45 52 59 28 63 75 72 |.......Q|UERY(cur|
|000002d0| 72 65 6e 74 20 66 6f 72 | 6d 20 74 61 62 6c 65 2d |rent for|m table-|
|000002e0| 3e 29 06 62 51 75 65 72 | 79 05 51 75 65 72 79 05 |>).bQuer|y.Query.|
|000002f0| 51 75 65 72 79 00 66 00 | 00 03 54 00 02 00 00 00 |Query.f.|..T.....|
|00000300| 00 00 1e 4f 52 44 45 52 | 20 42 59 28 63 75 72 72 |...ORDER| BY(curr|
|00000310| 65 6e 74 20 66 6f 72 6d | 20 74 61 62 6c 65 2d 3e |ent form| table->|
|00000320| 29 08 62 4f 72 64 65 72 | 42 79 08 4f 72 64 65 72 |).bOrder|By.Order|
|00000330| 20 42 79 08 4f 72 64 65 | 72 20 62 79 00 67 00 00 | By.Orde|r by.g..|
|00000340| 03 55 00 02 00 00 00 00 | 01 de 24 6e 3a 3d 52 65 |.U......|..$n:=Re|
|00000350| 63 6f 72 64 73 20 69 6e | 20 73 65 74 28 22 55 73 |cords in| set("Us|
|00000360| 65 72 53 65 74 22 29 0d | 49 66 20 28 24 6e 3d 30 |erSet").|If ($n=0|
|00000370| 29 0d 20 20 41 4c 45 52 | 54 28 22 54 68 65 72 65 |). ALER|T("There|
|00000380| 20 61 72 65 20 6e 6f 20 | 73 65 6c 65 63 74 65 64 | are no |selected|
|00000390| 20 72 65 63 6f 72 64 73 | 2e 22 29 0d 45 6c 73 65 | records|.").Else|
|000003a0| 20 0d 20 20 49 66 20 28 | 24 6e 3d 31 29 0d 20 20 | . If (|$n=1). |
|000003b0| 20 20 43 4f 4e 46 49 52 | 4d 28 22 44 6f 20 79 6f | CONFIR|M("Do yo|
|000003c0| 75 20 72 65 61 6c 6c 79 | 20 77 61 6e 74 20 74 6f |u really| want to|
|000003d0| 20 64 65 6c 65 74 65 20 | 74 68 65 73 65 20 72 65 | delete |these re|
|000003e0| 63 6f 72 64 73 3f 22 29 | 0d 20 20 45 6c 73 65 20 |cords?")|. Else |
|000003f0| 0d 20 20 20 20 43 4f 4e | 46 49 52 4d 28 22 44 6f |. CON|FIRM("Do|
|00000400| 20 79 6f 75 20 72 65 61 | 6c 6c 79 20 77 61 6e 74 | you rea|lly want|
|00000410| 20 74 6f 20 64 65 6c 65 | 74 65 20 74 68 65 73 65 | to dele|te these|
|00000420| 20 22 2b 53 74 72 69 6e | 67 28 24 6e 29 2b 22 20 | "+Strin|g($n)+" |
|00000430| 72 65 63 6f 72 64 73 3f | 22 29 0d 20 20 45 6e 64 |records?|"). End|
|00000440| 20 69 66 20 0d 20 20 49 | 66 20 28 4f 4b 3d 31 29 | if . I|f (OK=1)|
|00000450| 0d 20 20 20 20 43 52 45 | 41 54 45 20 53 45 54 28 |. CRE|ATE SET(|
|00000460| 63 75 72 72 65 6e 74 20 | 66 6f 72 6d 20 74 61 62 |current |form tab|
|00000470| 6c 65 2d 3e 3b 22 73 61 | 76 65 64 22 29 0d 20 20 |le->;"sa|ved"). |
|00000480| 20 20 44 49 46 46 45 52 | 45 4e 43 45 28 22 73 61 | DIFFER|ENCE("sa|
|00000490| 76 65 64 22 3b 22 55 73 | 65 72 53 65 74 22 3b 22 |ved";"Us|erSet";"|
|000004a0| 73 61 76 65 64 22 29 0d | 20 20 20 20 55 53 45 20 |saved").| USE |
|000004b0| 53 45 54 28 22 55 73 65 | 72 53 65 74 22 29 0d 20 |SET("Use|rSet"). |
|000004c0| 20 20 20 44 45 4c 45 54 | 45 20 53 45 4c 45 43 54 | DELET|E SELECT|
|000004d0| 49 4f 4e 28 63 75 72 72 | 65 6e 74 20 66 6f 72 6d |ION(curr|ent form|
|000004e0| 20 74 61 62 6c 65 2d 3e | 29 0d 20 20 20 20 55 53 | table->|). US|
|000004f0| 45 20 53 45 54 28 22 73 | 61 76 65 64 22 29 0d 20 |E SET("s|aved"). |
|00000500| 20 20 20 43 4c 45 41 52 | 20 53 45 54 28 22 73 61 | CLEAR| SET("sa|
|00000510| 76 65 64 22 29 0d 20 20 | 45 6e 64 20 69 66 20 0d |ved"). |End if .|
|00000520| 45 6e 64 20 69 66 20 0d | 07 62 44 65 6c 65 74 65 |End if .|.bDelete|
|00000530| 0c 44 65 6c 65 74 65 20 | 53 65 6c 65 63 1a 44 65 |.Delete |Selec.De|
|00000540| 6c 65 74 65 20 48 69 67 | 68 6c 69 67 68 74 65 64 |lete Hig|hlighted|
|00000550| 20 52 65 63 6f 72 64 73 | 00 68 00 00 03 5a 00 02 | Records|.h...Z..|
|00000560| 00 00 00 00 00 26 50 52 | 49 4e 54 20 53 45 4c 45 |.....&PR|INT SELE|
|00000570| 43 54 49 4f 4e 28 63 75 | 72 72 65 6e 74 20 66 6f |CTION(cu|rrent fo|
|00000580| 72 6d 20 74 61 62 6c 65 | 2d 3e 29 0d 06 62 50 72 |rm table|->)..bPr|
|00000590| 69 6e 74 0f 50 72 69 6e | 74 20 53 65 6c 65 63 74 |int.Prin|t Select|
|000005a0| 69 6f 6e 05 50 72 69 6e | 74 00 69 00 00 03 5b 00 |ion.Prin|t.i...[.|
|000005b0| 02 00 00 00 00 00 21 41 | 4c 4c 20 52 45 43 4f 52 |......!A|LL RECOR|
|000005c0| 44 53 28 63 75 72 72 65 | 6e 74 20 66 6f 72 6d 20 |DS(curre|nt form |
|000005d0| 74 61 62 6c 65 2d 3e 29 | 08 62 53 68 6f 77 41 6c |table->)|.bShowAl|
|000005e0| 6c 08 53 68 6f 77 20 41 | 6c 6c 12 53 65 6c 65 63 |l.Show A|ll.Selec|
|000005f0| 74 20 41 6c 6c 20 52 65 | 63 6f 72 64 73 00 6a 00 |t All Re|cords.j.|
|00000600| 00 03 5c 00 02 00 00 00 | 00 00 12 55 53 45 20 53 |..\.....|...USE S|
|00000610| 45 54 28 22 55 73 65 72 | 53 65 74 22 29 0b 62 53 |ET("User|Set").bS|
|00000620| 68 6f 77 53 75 62 73 65 | 74 0b 53 68 6f 77 20 53 |howSubse|t.Show S|
|00000630| 75 62 73 65 74 1a 53 65 | 6c 65 63 74 20 48 69 67 |ubset.Se|lect Hig|
|00000640| 68 6c 69 67 68 74 65 64 | 20 52 65 63 6f 72 64 73 |hlighted| Records|
|00000650| 00 6b 00 00 03 5d 00 12 | 00 00 00 00 00 21 47 52 |.k...]..|.....!GR|
|00000660| 41 50 48 20 54 41 42 4c | 45 28 63 75 72 72 65 6e |APH TABL|E(curren|
|00000670| 74 20 66 6f 72 6d 20 74 | 61 62 6c 65 2d 3e 29 06 |t form t|able->).|
|00000680| 62 47 72 61 70 68 0b 47 | 72 61 70 68 20 54 61 62 |bGraph.G|raph Tab|
|00000690| 6c 65 11 47 72 61 70 68 | 73 20 61 6e 64 20 43 68 |le.Graph|s and Ch|
|000006a0| 61 72 74 73 00 6e 00 00 | 03 60 00 02 00 00 00 00 |arts.n..|.`......|
|000006b0| 00 24 52 45 50 4f 52 54 | 28 63 75 72 72 65 6e 74 |.$REPORT|(current|
|000006c0| 20 66 6f 72 6d 20 74 61 | 62 6c 65 2d 3e 3b 43 68 | form ta|ble->;Ch|
|000006d0| 61 72 28 31 29 29 07 62 | 52 65 70 6f 72 74 06 52 |ar(1)).b|Report.R|
|000006e0| 65 70 6f 72 74 0d 51 75 | 69 63 6b 20 52 65 70 6f |eport.Qu|ick Repo|
|000006f0| 72 74 73 00 6f 00 00 03 | 61 00 02 00 00 00 00 00 |rts.o...|a.......|
|00000700| 29 50 52 49 4e 54 20 4c | 41 42 45 4c 28 63 75 72 |)PRINT L|ABEL(cur|
|00000710| 72 65 6e 74 20 66 6f 72 | 6d 20 74 61 62 6c 65 2d |rent for|m table-|
|00000720| 3e 3b 43 68 61 72 28 31 | 29 29 07 62 4c 61 62 65 |>;Char(1|)).bLabe|
|00000730| 6c 73 0c 50 72 69 6e 74 | 20 4c 61 62 65 6c 73 0c |ls.Print| Labels.|
|00000740| 50 72 69 6e 74 20 4c 61 | 62 65 6c 73 03 e8 00 00 |Print La|bels....|
|00000750| 03 56 00 00 00 00 00 00 | 00 c3 69 66 20 28 73 65 |.V......|..if (se|
|00000760| 6c 65 63 74 65 64 20 72 | 65 63 6f 72 64 20 6e 75 |lected r|ecord nu|
|00000770| 6d 62 65 72 28 63 75 72 | 72 65 6e 74 20 66 6f 72 |mber(cur|rent for|
|00000780| 6d 20 74 61 62 6c 65 2d | 3e 29 3c 30 29 0d 76 52 |m table-|>)<0).vR|
|00000790| 65 63 4e 75 6d 3a 3d 22 | 22 0d 65 6c 73 65 0d 76 |ecNum:="|".else.v|
|000007a0| 52 65 63 4e 75 6d 3a 3d | 73 74 72 69 6e 67 28 73 |RecNum:=|string(s|
|000007b0| 65 6c 65 63 74 65 64 20 | 72 65 63 6f 72 64 20 6e |elected |record n|
|000007c0| 75 6d 62 65 72 28 63 75 | 72 72 65 6e 74 20 66 6f |umber(cu|rrent fo|
|000007d0| 72 6d 20 74 61 62 6c 65 | 2d 3e 29 29 2b 22 20 6f |rm table|->))+" o|
|000007e0| 66 20 22 2b 73 74 72 69 | 6e 67 28 72 65 63 6f 72 |f "+stri|ng(recor|
|000007f0| 64 73 20 69 6e 20 73 65 | 6c 65 63 74 69 6f 6e 28 |ds in se|lection(|
|00000800| 63 75 72 72 65 6e 74 20 | 66 6f 72 6d 20 74 61 62 |current |form tab|
|00000810| 6c 65 2d 3e 29 29 0d 65 | 6e 64 20 69 66 07 76 52 |le->)).e|nd if.vR|
|00000820| 65 63 4e 75 6d 0d 52 65 | 63 6f 72 64 20 4e 75 6d |ecNum.Re|cord Num|
|00000830| 62 65 72 20 52 65 63 6f | 72 64 20 50 6f 73 69 74 |ber Reco|rd Posit|
|00000840| 69 6f 6e 20 77 69 74 68 | 69 6e 20 53 65 6c 65 63 |ion with|in Selec|
|00000850| 74 69 6f 6e 03 e9 00 00 | 03 57 00 00 00 00 00 00 |tion....|.W......|
|00000860| 00 2b 76 50 61 67 65 4e | 75 6d 3a 3d 73 74 72 69 |.+vPageN|um:=stri|
|00000870| 6e 67 28 70 72 69 6e 74 | 69 6e 67 20 70 61 67 65 |ng(print|ing page|
|00000880| 3b 22 2d ca 23 23 23 23 | 30 ca 2d 22 29 08 76 50 |;"-.####|0.-").vP|
|00000890| 61 67 65 4e 75 6d 0f 50 | 72 69 6e 74 65 64 20 50 |ageNum.P|rinted P|
|000008a0| 61 67 65 20 4e 62 00 03 | ea 00 00 03 58 00 00 00 |age Nb..|....X...|
|000008b0| 00 00 00 00 13 76 44 61 | 74 65 3a 3d 63 75 72 72 |.....vDa|te:=curr|
|000008c0| 65 6e 74 20 64 61 74 65 | 05 76 44 61 74 65 0c 43 |ent date|.vDate.C|
|000008d0| 75 72 72 65 6e 74 20 44 | 61 74 65 00 03 eb 00 00 |urrent D|ate.....|
|000008e0| 03 59 00 00 00 00 00 00 | 00 13 76 54 69 6d 65 3a |.Y......|..vTime:|
|000008f0| 3d 63 75 72 72 65 6e 74 | 20 74 69 6d 65 05 76 54 |=current| time.vT|
|00000900| 69 6d 65 0c 43 75 72 72 | 65 6e 74 20 54 69 6d 65 |ime.Curr|ent Time|
|00000910| 00 03 ec 00 00 03 62 00 | 00 00 00 00 00 00 2e 76 |......b.|.......v|
|00000920| 46 6f 72 6d 50 61 67 65 | 3a 3d 53 74 72 69 6e 67 |FormPage|:=String|
|00000930| 28 43 75 72 72 65 6e 74 | 20 66 6f 72 6d 20 70 61 |(Current| form pa|
|00000940| 67 65 3b 22 50 61 67 65 | 20 23 30 22 29 09 76 46 |ge;"Page| #0").vF|
|00000950| 6f 72 6d 50 61 67 65 0c | 43 75 72 72 65 6e 74 20 |ormPage.|Current |
|00000960| 50 61 67 65 00 03 ed 00 | 00 03 63 00 00 00 00 00 |Page....|..c.....|
|00000970| 00 00 3b 76 44 61 74 65 | 54 69 6d 65 3a 3d 73 74 |..;vDate|Time:=st|
|00000980| 72 69 6e 67 28 63 75 72 | 72 65 6e 74 20 64 61 74 |ring(cur|rent dat|
|00000990| 65 29 2b 22 20 6f 6e 20 | 22 2b 73 74 72 69 6e 67 |e)+" on |"+string|
|000009a0| 28 63 75 72 72 65 6e 74 | 20 74 69 6d 65 29 09 76 |(current| time).v|
|000009b0| 44 61 74 65 54 69 6d 65 | 0d 44 61 74 65 20 61 6e |DateTime|.Date an|
|000009c0| 64 20 54 69 6d 65 00 | |d Time. | |
+--------+-------------------------+-------------------------+--------+--------+